From: Richard M. Stallman Date: Sat, 26 Oct 1996 16:05:58 +0000 (+0000) Subject: (pascal-indent-declaration): Avoid infinite loop X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~82605 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=7c9097d02fd92884a28f002ad25d9f6baa07e35a;p=emacs.git (pascal-indent-declaration): Avoid infinite loop if edpos is at end of buffer. --- diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el index 2cad0a01afd..d3474619089 100644 --- a/lisp/progmodes/pascal.el +++ b/lisp/progmodes/pascal.el @@ -989,7 +989,8 @@ indent of the current line in parameterlist." ;; Do lineup (setq ind (pascal-get-lineup-indent stpos edpos lineup)) (goto-char stpos) - (while (<= (point) (marker-position edpos)) + (while (and (<= (point) (marker-position edpos)) + (not (eobp))) (if (search-forward lineup (pascal-get-end-of-line) 'move) (forward-char -1)) (delete-horizontal-space)